(vc-version-diff): Don't move point in current buffer.

diff --git a/lisp/vc.el b/lisp/vc.el
index 6073ebe86df27bbd2e9ddfd09c032fc966e6614b..2b7df01e99aa1f2b5e18dfb5baa0968d35f047f3 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -775,15 +775,9 @@ files in or below it."
        (goto-char (point-min))
        (set-buffer-modified-p nil)
        )
-    (progn
-      (vc-backend-diff file rel1 rel2)
-      (goto-char (point-min))
-      (if (equal (point-min) (point-max))
-         (message "No changes to %s between %s and %s." file rel1 rel2)
-       (pop-to-buffer "*vc*")
-       (goto-char (point-min))
-       )
-      )
+    (if (zerop (vc-backend-diff file rel1 rel2))
+       (message "No changes to %s between %s and %s." file rel1 rel2)
+      (pop-to-buffer "*vc*")
     )
   )